﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class Precios2Fact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As Precios2BE
        Dim tmpPrecios2 As Precios2BE = New Precios2BE()
        Try
            With tmpPrecios2
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .Clave1 = convertDTFromDb.ConvertString(dr.Item("Clave1"))
                .CodB = convertDTFromDb.ConvertString(dr.Item("CodB"))
                .Costo = convertDTFromDb.ConvertDecimal(dr.Item("Costo"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Precio = convertDTFromDb.ConvertDecimal(dr.Item("Precio"))
            End With
            Return tmpPrecios2
        Catch ex As Exception
            Throw
        Finally
            tmpPrecios2 = Nothing
        End Try
    End Function
End Class
